home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoHilite2.cpt / AutoHilite Button / card_3060.txt < prev    next >
Text File  |  1988-06-12  |  3KB  |  113 lines
  1. -- card: 3060 from stack: in
  2. -- bmap block id: 3308
  3. -- flags: 0000
  4. -- background id: 2653
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=28 top=45 right=67 bottom=128
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Auto Highlight
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   ask "Which Stack?" with "Copy of"
  23.   if it is empty then
  24.     exit mouseUp
  25.   end if
  26.   put it into stackName
  27.   go to first card of stack stackName
  28.   put the number of backgrounds into numBkgd
  29.   repeat numBkgd times
  30.     --
  31.     --   autohilite the background buttons
  32.     --
  33.     put the short name of this background into bkgdName
  34.     put the number of background buttons into bkgdButton
  35.     repeat with counter = 1 to bkgdButton
  36.       set autohilite of background button counter to true
  37.     end repeat
  38.     --
  39.     --  cycle through all the cards of this background
  40.     --
  41.     put the number of cards of this background into numCard
  42.     repeat numCard times
  43.       put the number of card buttons into numButton
  44.       repeat with counter = 1 to numButton
  45.         set autohilite of card button counter to true
  46.       end repeat
  47.       go to next card
  48.     end repeat
  49.   end repeat
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 2 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=462 top=25 right=60 bottom=501
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 20098 / 20098
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Home
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect iris close
  69.   go "home"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 3 (field)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=26 top=87 right=329 bottom=500
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: 
  86.  
  87.  
  88. -- part 4 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=173 top=36 right=75 bottom=221
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 19381 / 19381
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mouseUp
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part contents for card part 3
  107. ----- text -----
  108. The Auto Highlight button will ask you for the name of a stack.  (It suggests "Copy of ..." ‚Äî please don't use this on something you haven't backed up!)  It then goes to that stack, looping through each background, and each card of each background, setting autohilite on all buttons to
  109. "true."  Buttons look better that way:  positive visual confirmation that you clicked something.
  110.  
  111. Note on changes:  my apologies to anyone who was inconvenienced by two bugs in the first version.  (1) Clicking Cancel had the effect of autohighlighting the current stack.  (2) If the stack had only one background, the script went into a loop.  (I hope anyone who's found that remembered to hit command-period!)  Both problems have been fixed.  Please let me know if you discover any more.
  112.  
  113. -- Tad Davis (GEnie ID: TAD.DAVIS)